with Aunit.Test_Cases.Registration; use AUnit.Test_Cases.Registration;
with AUnit.Assertions;              use AUnit.Assertions;
with Constants;
package body Stations.Test is

   --  procedure Test_Create(T: in out Test) is
      --  station: constant Constants.StationType := Constants.StationType'First;
   --  begin

   --  end Test_Create;


   procedure Test_Name(T: in out Test) is
      --  Expected: constant Constants.StationType := 'A';
      res: String;
      station_name: constant Constants.StationType := Constants.StationType'First;
   begin
      Put_Line("Test_Name_Station");
      T.station.create(station_name);
      Assert(Condition => (res = T.station.getName()), Message =>
               "Test getName() function fails");
   end Test_Name;

end Stations.Test;
